           \  [                 w        E                                Schiebetre 2teil.                L A1?A?1         L       t       t      t                                 
            `
         A!A]g@        ?          D      X    Invalid parameters!           ! sliding 5' 0" 
if f-0.022<=-0.0001 then 50
if c-2*f<=-0.0001 then 50
if H<0 or H>100 then 50  
if M<1 or L<1 then 50
if E>0.9999 then 10
if (a-(2*D+3*e+2"*(M-1)))/M<0.0001 then 50
if (b-(2*D+2*e+1"*(L-1)))/L<0.0001 then 50

10:
addz -C*E~
mulx -1 
addx -a/2
call frame_ a,b,C,D
MATERIAL G
addx d
addz C/2-F
if e<1 then 20
E=0.075
block a/2-D+E/2,b-D,F 
addz F
addx (a/2-D-E/2)*0.01*(100-H)
block a/2-D+E/2,b-D,F
del 2
addz f/2
goto 30 
20:
call int_rect_frame a/2-D+e/2,b-D,e,F
addz F
addx (a/2-D-e/2)*0.01*(100-H)
call int_rect_frame a/2-D+e/2,b-D,e,F
del 2
addz F/6
addx e
addy e
call double_grille_2 a/2-D-3/2*e,b-D-2*e,F/3,M,L
addz F
addx (a/2-D-e/2)*0.01*(100-H)
call double_grille_2 a/2-D-3/2*e,b-D-2*e,F/3,M,L
del 5
addz F/2
addx e
addy e
call double_grille_2 a/2-D-3/2*e,b-D-2*e,F/3,M,L
addz F
addx (a/2-D-e/2)*0.01*(100-H)
call double_grille_2 a/2-D-3/2*e,b-D-2*e,F/3,M,L
del 4

if i=0 then 30
material i
addx e
addy e
rect a/2-D-3/2*e,b-D-2*e
addx (a/2-D-e/2)*0.01*(100-H)
addz F
rect a/2-D-3/2*e,b-D-2*e
del 4

30:


if j<>1 or h>0 then 60
addx a/2-d
addz -f/2-0.001
w=(a/2-D-3*e/2)/3
y=(b-d)/2
lin_ -e/2-w,y,0,-e/2-2*w,y,O
lin_ -e/2-w,y,0,-e/2-4/3*w,w/3+y,0
lin_ -e/2-w,y,0,-e/2-4/3*w,-w/3+y,0
mulx -1
addz F
lin_ -e/2-w,y,0,-e/2-2*w,y,O
lin_ -e/2-w,y,0,-e/2-4/3*w,w/3+y,0
lin_ -e/2-w,y,0,-e/2-4/3*w,-w/3+y,0
goto 60
50:
print "Invalid parameters!"
60: 
endif C-2*F<=-0.0001 then 1
if H<0 or H>100 then 1

ADD2 0,C*E~
MUL2 -1,1
RECT2 -A/2,-C,-A/2+D,0
RECT2  A/2,-C,A/2-D,0
N=E
if e>0.9999 then 2
LINE2  -A/2+D+E,-C/2,-A/2+D+E,-C/2+F
LINE2  -E/2,-C/2,-E/2,-C/2+F
LINE2  -A/2+D+E,-C/2+F/2,-E/2,-C/2+F/2
GOTO 3
2:
N=0.08
3:
RECT2 -A/2+D,-C/2,N/2,-C/2+F
ADD2  (A/2-D-N/2)*0.01*(100-H),-F
RECT2 -A/2+D,-C/2,N/2,-C/2+F
if e>0.9999 then 4
LINE2  -A/2+D+E,-C/2,-A/2+D+E,-C/2+F
LINE2  -E/2,-C/2,-E/2,-C/2+F
LINE2  -A/2+D+E,-C/2+F/2,-E/2,-C/2+F/2
4:
IF K=0 THEN 5
DEL 1
LINE2 -A/2+D,0,A/2-D,0
LINE2 -A/2+D,-C,A/2-D,-C
GOTO 5
1:
FRAGMENT2 1,1
5:
END   L  333`?333             L      L                             ?333`?'`       ?'`?'           ?'    ?333           ?333    ?333`       333`'`       '`'           '    333           333    333`       ?zP`?zě       =P`=ě       ?zx=x       ?'P`P`       P`ě       ě?'ě       ?'ě?'P`       =ě'ě       'ě'P`       'P`=P`       =P`=ě       ěP`       zězP`       +zὖ+          {
} 
      >                                              A  X Dimension                         ?ff`   B  Z Dimension                         @    C  Rahmenstrke ss   @
         ?    D  Rahmenbreite ess  @
         ?
=`   E  Trbreite  1-solid   solid lea     ?33@   F  Trstrke  immer > 1" "  1" 22     ?
=`   G	  Material Tr terial 0No
         @.      H   Offen %  geschl.-0->voll-100               I	  Material Glas  Allgemein-keine     @8      J   ffnungslinie  1ja  0keine o             K   Schwelle in 2D  0keine no                L   Teile # vert l Panes -solid  ea     ?      M   Teile # hor  tal Panes -solid       ?                